home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-03-27 | 635 b | 27 lines | [TEXT/TeX+] |
- #
- # This script will print some debug info.
- # Usage: Debug <args>.
- #
- # Simply put a Debug in front of a command to see
- # which parameters the command gets...
- #
-
- Set ToolName $1
- Echo "" > Dev:Console
- Echo "Debugging Information:" > Dev:Console
- Echo "======================" > Dev:Console
- Echo "Tool-Name = "$ToolName > Dev:Console
- Shift
- Echo "Number of arguments = "$# > Dev:Console
- Echo "" > Dev:Console
- Echo "List of arguments:" > Dev:Console
- Echo "==================" > Dev:Console
- For i $* [Echo ∂t“$i” > Dev:Console
- Echo "" > Dev:Console
-
- #
- # Comment out the following line if the command should not be executed...
- #
-
- $ToolName $*
-